home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 2 / 002.d81 / light racers (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  111 lines
  1. 100 poke53281,0:print""
  2. 110 print"[147]":poke783,peek(893)and254
  3. 120 poke781,1:a$="light racers":gosub200
  4. 130 poke781,3:poke782,0:sys65520:a$="by":gosub200
  5. 140 poke781,5:sys65520:a$="bob busch":gosub200:poke781,0
  6. 150 print:print:print:print"      player 1          player 2"
  7. 162 print:print"        use               use"
  8. 170 print:print"     joystick #1       joystick #2
  9. 175 [153]:[153]:[153]:[153]:[153]"   <revised for c-64 by alan gardner>"
  10. 182 [151]781,23:[151]782,13:[158]65520:[153]"please wait";:[151]198,0
  11. 185 [134]a%(40,20):[129]z0[178]0[164]40:[129]z1[178]0[164]20:a%(z0,z1)[178]0:[130]z1,z0
  12. 190 [151]781,23:[151]782,9:[158]65520:[153]"press any key to begin";:[151]198,0
  13. 195 [146]198,1:[137]210
  14. 200 [151]782,20[171][195](a$)[173]2:[158]65520:[153]a$:[142]
  15. 210 d[178]5:p[178]170
  16. 220 :
  17. 230 :
  18. 240 [134] zz%(761),z1%(761),z2%(761),z3%(761)
  19. 250 x[178]5:x1[178]35:y[178]5:y1[178]18:me[178]8:ne[178]4:[151]198,0
  20. 260 [153]"load";:[129]pr[178]0[164]39:[153]"spc(";:[130]:[129]pr[178]1[164]19:[153]"spc("[166]38)"spc(";:[130]
  21. 262 [129]pr[178]0[164]39:[153]"spc(";:[130]
  22. 264 :
  23. 265 [143]     main program
  24. 266 :
  25. 270 :
  26. 272 f1[178][194](56320)[175]16:[139]f1[179][177]16[167]290
  27. 275 kp[178]15[171]([194](56320)[175]15):[139]kp[178]0[176]kp[178]5[176]kp[178]6[176]kp[178]9[176]kp[178]10[167]290
  28. 280 ne[178]kp
  29. 290 f2[178][194](56321)[175]16
  30. 295 k2[178]15[171]([194](56321)[175]15):[139]k2[178]0[176]k2[178]5[176]k2[178]6[176]k2[178]9[176]k2[178]10[167]310
  31. 300 me[178]k2
  32. 310 [139]me[178]1[167]y[178]y[171]1:[139]f2[179][177]16[167]y[178]y[171]1
  33. 320 [139]ne[178]1[167]y1[178]y1[171]1:[139]f1[179][177]16[167]y1[178]y1[171]1
  34. 330 [139]me[178]2[167]y[178]y[170]1:[139]f2[179][177]16[167]y[178]y[170]1
  35. 340 [139]ne[178]2[167]y1[178]y1[170]1:[139]f1[179][177]16[167]y1[178]y1[170]1
  36. 350 [139]me[178]4[167]x[178]x[171]1:[139]f2[179][177]16[167]x[178]x[171]1
  37. 360 [139]ne[178]4[167]x1[178]x1[171]1:[139]f1[179][177]16[167]x1[178]x1[171]1
  38. 370 [139]me[178]8[167]x[178]x[170]1:[139]f2[179][177]16[167]x[178]x[170]1
  39. 380 [139]ne[178]8[167]x1[178]x1[170]1:[139]f1[179][177]16[167]x1[178]x1[170]1
  40. 390 [139]y[179][178].[167]y[178].:c[178]1:[137]570
  41. 400 [139]y1[179][178].[167]y1[178].:c[178]2:[137]570
  42. 410 [139]y[177][178]20[167]y[178]20:c[178]1:[137]570
  43. 420 [139]y1[177][178]20[167]y1[178]20:c[178]2:[137]570
  44. 430 [139]x[179][178].[167]x[178].:c[178]1:[137]570
  45. 440 [139]x1[179][178].[167]x1[178].:c[178]2:[137]570
  46. 450 [139]x[177][178]39[167]x[178]39:c[178]1:[137]570
  47. 460 [139]x1[177][178]39[167]x1[178]39:c[178]2:[137]570
  48. 470 :
  49. 480 [139](a%(x,y)[178]1) [176]  (a%(x1,y1)[178]1)[167]540
  50. 490 t[178]t[170]1:zz%(t)[178]x:z1%(t)[178]y:z2%(t)[178]x1:z3%(t)[178]y1
  51. 500 :
  52. 510 [151]1024[170]x[170]y[172]40,160:[151]55296[170]x[170]40[172]y,2:a%(x,y)[178]1
  53. 515 [151]1024[170]x1[170]y1[172]40,160:[151]55296[170]x1[170]y1[172]40,6:a%(x1,y1)[178]1
  54. 520 [161]p$:[139]p$[178]"input"[167][141]760
  55. 530 [137]270
  56. 540 [143]   crash routine
  57. 550 [139]a%(x,y)[178]1[167]c[178]1
  58. 560 [139]a%(x1,y1)[178]1[167]c[178]2
  59. 570 [151]781,22:[151]782,1:[158]65520:[153]"c r a s h!!!!":[143] sound routine
  60. 580 [139]a%(x,y)[178]1 [175] a%(x1,y1)[178]1[167]a[178]a[170]1:b[178]b[170]1
  61. 585 [139]a%(x,y)[178]1 [175] a%(x1,y1)[178]1[167][153][163]10)"both cars crashed!!":c[178]3:[137]640
  62. 590 [153][163]10)"car ";c;"crashed!!"
  63. 595 [129]dl[178]1[164]500:[130]
  64. 600 [139]c[178]1[167]a[178]a[170]1
  65. 610 [139]c[178]2[167]b[178]b[170]1
  66. 620 :
  67. 630 :
  68. 640 [139]a[178]5[167]cw[178]2
  69. 650 [139]b[178]5[167]cw[178]1
  70. 660 [139]a[178]5 [175] b[178]5 [167]a[178]4:b[178]4
  71. 670 [139]a[178]5 [176] b[178]5 [167][153]"loadthe winner is";:[129]d1[178]1[164]10:[129]d2[178]1[164]100:[130]d2
  72. 671 [139]a[178]5 [176] b[178]5 [167] [153]".";:[130]d1:[153]"car number "cw:[153]:[153]
  73. 672 [139]a[179][177]5 [175] b[179][177]5 [167]680
  74. 673 [153]"play again?":[151]198,0:[146]198,1:[161]k$:[139]k$[179][177]"y"[175]k$[179][177]"n"[167][153]"on";:[137]672
  75. 674 [139]k$[178]"n"[167]63000
  76. 676 [138]
  77. 680 [129]r[178]1[164]t
  78. 690 a%(zz%(r),z1%(r))[178]0:a%(z2%(r),z3%(r))[178]0
  79. 700 [139]c[178]1[167][151]1024[170]zz%(r)[170]40[172]z1%(r),160:[151]55296[170]zz%(r)[170]40[172]z1%(r),0
  80. 710 [139]c[178]2[167][151]1024[170]z2%(r)[170]40[172]z3%(r),160:[151]55296[170]z2%(r)[170]40[172]z3%(r),0
  81. 720 [139]c[178]3[167][151]1024[170]zz%(r)[170]40[172]z1%(r),160:[151]55296[170]zz%(r)[170]40[172]z1%(r),0
  82. 725 [139]c[178]3[167][151]1024[170]z2%(r)[170]40[172]z3%(r),160:[151]55296[170]z2%(r)[170]40[172]z3%(r),0
  83. 730 [130]r
  84. 740 t[178]0:r[178]0:[137]250
  85. 750 :
  86. 755 :
  87. 760 [151]198,0:[151]781,23:[151]782,17:[158]65520:[153]"paused"a%(x,y);a%(x1,y1)
  88. 770 [161]p$:[139]p$[179][177]"input"[167]770
  89. 780 [151]198,0:[151]781,23:[151]782,17:[158]65520:[153]"spc(spc(spc(spc(spc(spc(spc(":[142]
  90. 790 :
  91. 800 :
  92. 10000 [143] no moving back on yourself
  93. 10001 [151]781,22:[151]782,5:[158]65520:[153]f1:[151]782,20:[158]65520:[153]f2
  94. 10002 [139]kp[178]4 [175] ne[178]8 [167] kp[178]ne:[137]10009
  95. 10003 [139]kp[178]8 [175] ne[178]4 [167] kp[178]ne:[137]10009
  96. 10004 [139]kp[178]1 [175] ne[178]2 [167] kp[178]ne:[137]10009
  97. 10005 [139]kp[178]2 [175] ne[178]1 [167] kp[178]ne:[137]10009
  98. 10006 :
  99. 10009 [142]
  100. 10010 [143] no moving back on yourself
  101. 10012 [139]k2[178]4 [175] me[178]8 [167] k2[178]me:[137]10020
  102. 10013 [139]k2[178]8 [175] me[178]4 [167] k2[178]me:[137]10020
  103. 10014 [139]k2[178]1 [175] me[178]2 [167] k2[178]me:[137]10020
  104. 10015 [139]k2[178]2 [175] me[178]1 [167] k2[178]me:[137]10020
  105. 10020 [142]
  106. 20000 :
  107. 30000 :
  108. 63000 [143] link back to loadstar
  109. 63002 [153]"loadload"[199](34)"payload"[199](34)",8":[153]"run"
  110. 63004 [151]631,13:[151]632,13:[151]198,2:[128]
  111.